﻿
Imports System.Data
Imports VSModel
Imports Cls_Common
Imports SecurityService
Imports TemplateParser
Partial Class FrontEnd_Control_Users_Vip
    Inherits System.Web.UI.UserControl

    Private Shared ReadOnly log As log4net.ILog = log4net.LogManager.GetLogger(System.Reflection.MethodBase.GetCurrentMethod().DeclaringType)
#Region "Sub and Function "
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then

            Dim script As ScriptManager = ScriptManager.GetCurrent(Me.Page)
            If Not script Is Nothing AndAlso script.IsInAsyncPostBack Then
                ScriptManager.RegisterStartupScript(Me.Page, Me.Page.GetType, "duyjs", "ajaxJquery()", True)
            Else
                Me.Page.ClientScript.RegisterStartupScript(Me.Page.GetType(), "duyjs", String.Concat("Sys.Application.add_load(function(){", "ajaxJquery()", "});"), True)
            End If
            LoadType()
        End If
    End Sub
    Protected Sub LoadType()
        Using data As New VSEntities
            'Vip
            'Add DomainName DUC 09-09-2014
            Dim ba = (From vi In data.Vips Where vi.Domain = DomainName Select New With {vi.Id, .Name = vi.TenVip}).ToList
            rptVip.DataTextField = "Name"
            rptVip.DataValueField = "Id"
            rptVip.DataSource = ba
            rptVip.DataBind()
            rptVip.SelectedValue = 1
            ltrThanhVienInfo.Text = "Quyền lợi khi là thành viên <strong>VIP1</strong>:<br /> - Số lượng sản phẩm bán tối đa(tại 1 thời điểm) là 5 xe.<br />-Mỗi ngày được cấp 3 lần up tin.<br />- Có thể thay đổi thông tin liên hệ khác nhau cho từng tin đăng.<br />  - Có thể Up / làm mới tin tự động. "
            'Thoi han
            ddlThoihan.AppendDataBoundItems = True
            ddlThoihan.Items.Insert(0, New ListItem("---Chọn---", "0"))
            'Add DomainName DUC 09-09-2014
            Dim q = (From p In data.ThoiHans Where p.Domain = DomainName Select New With {p.Id, .Name = p.ThoiHan1}).ToList
            ddlThoihan.DataTextField = "Name"
            ddlThoihan.DataValueField = "Id"
            ddlThoihan.DataSource = q
            ddlThoihan.DataBind()

        End Using
    End Sub

    Protected Sub LoadData()

    End Sub
#End Region
#Region "Event for control "
    Protected Sub btnRegister_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnRegister.Click
        Using data As New VSEntities
            Dim username As String = Session("UserName")
            'Add DomainName DUC 09-09-2014
            Dim p As VSModel.User = (From q In data.Users Where q.Domain = DomainName And q.UserName = username Select q).FirstOrDefault
            Try
                Dim intVip As Integer = 0
                For Each item As ListItem In rptVip.Items
                    If item.Selected = True Then
                        intVip = item.Value
                    End If
                Next
                p.Vip = intVip


                Dim intThoiHan As Integer = ddlThoihan.SelectedValue
                'Add DomainName DUC 09-09-2014
                Dim h = (From l In data.ThoiHans Where l.Domain = DomainName And l.Id = intThoiHan Select l).FirstOrDefault
                p.ThoiHan = intThoiHan

                p.TongPhi = txtTongPhi.Text.Trim
                data.SaveChanges()
                'Insert_App_Log("Insert Member:" & txtUsername.Text.Trim & "", Function_Name.User, Audit_Type.Create, Request.ServerVariables("REMOTE_ADDR"), Session("UserName"))
                Excute_Javascript("Alertbox('Đăng ký VIP thành công. Chúng tôi sẽ liên lạc lại với bạn');window.location ='" + MainDomain + "quan-ly-san-pham.html';", Me.Page, True)
            Catch ex As Exception
                log4net.Config.XmlConfigurator.Configure()
                log.Error("Error error " & AddTabSpace(1) & Session("Username") & AddTabSpace(1) & "IP:" & GetIPAddress(), ex)
                Excute_Javascript("Alertbox('Đăng ký thành viên thất bại hãy kiểm tra lại đường truyền hoặc liên hệ với quản lý.');", Me.Page, True)
            End Try
        End Using
    End Sub

#End Region

    Protected Sub rptVip_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles rptVip.SelectedIndexChanged
        Using data As New VSEntities
            Dim intVip As Integer = 0
            For Each item As ListItem In rptVip.Items
                If item.Selected = True Then
                    intVip = item.Value


                    If intVip = 1 Then
                        ltrThanhVienInfo.Text = "Quyền lợi khi là thành viên <strong>VIP1</strong>:<br /> - Số lượng xe bán tối đa(tại 1 thời điểm) là 5 sản phẩm.<br />-Mỗi ngày được cấp 3 lần up tin.<br />- Có thể thay đổi thông tin liên hệ khác nhau cho từng tin đăng.<br />  - Có thể Up / làm mới tin tự động. "
                    ElseIf intVip = 2 Then
                        ltrThanhVienInfo.Text = "Quyền lợi khi là thành viên <strong>VIP2</strong>:<br /> - Số lượng xe bán tối đa(tại 1 thời điểm) là 10 sản phẩm.<br />-Mỗi ngày được cấp 6 lần up tin.<br />- Có thể thay đổi thông tin liên hệ khác nhau cho từng tin đăng.<br />  - Có thể Up / làm mới tin tự động.</br> - Tin đăng hiển thị ngay không cần kiểm duyệt."
                    Else
                        ltrThanhVienInfo.Text = "Quyền lợi khi là thành viên <strong>VIP3</strong>:<br /> - Số lượng xe bán tối đa(tại 1 thời điểm) là 25 sản phẩm.<br />-Mỗi ngày được cấp 9 lần up tin.<br />- Có thể thay đổi thông tin liên hệ khác nhau cho từng tin đăng.<br />  - Có thể Up / làm mới tin tự động.</br> - Tin đăng hiển thị ngay không cần kiểm duyệt. </br>- Có website riêng trên muaban24h.net.vn"

                    End If


                End If
            Next
            'Add DomainName DUC 09-09-2014
            Dim p = (From q In data.Vips Where q.Domain = DomainName And q.Id = intVip Select q).FirstOrDefault

            Dim intThoiHan As Integer = ddlThoihan.SelectedValue
            'Add DomainName DUC 09-09-2014
            Dim h = (From l In data.ThoiHans Where l.Domain = DomainName And l.Id = intThoiHan Select l).FirstOrDefault

            Dim total As Integer = 0
            If Not p Is Nothing AndAlso Not h Is Nothing Then
                total = p.Gia * h.Sothang
            End If
            txtTongPhi.Text = total.ToString & ",000"


        End Using
    End Sub

    Protected Sub ddlThoihan_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlThoihan.SelectedIndexChanged
        Using data As New VSEntities
            Dim intVip As Integer = 0
            For Each item As ListItem In rptVip.Items
                If item.Selected = True Then
                    intVip = item.Value
                End If
            Next
            'Add DomainName DUC 09-09-2014
            Dim p = (From q In data.Vips Where q.Domain = DomainName And q.Id = intVip Select q).FirstOrDefault

            Dim intThoiHan As Integer = ddlThoihan.SelectedValue
            'Add DomainName DUC 09-09-2014
            Dim h = (From l In data.ThoiHans Where l.Domain = DomainName And l.Id = intThoiHan Select l).FirstOrDefault

            Dim total As Integer = 0
            If Not p Is Nothing AndAlso Not h Is Nothing Then
                total = (p.Gia * h.Sothang)
            End If
            txtTongPhi.Text = total.ToString & ",000"
        End Using
    End Sub

    Protected Sub btnHuy_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnHuy.Click
        Response.Redirect(MainDomain & "quan-ly-san-pham.html")
    End Sub
End Class
